home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 8
/
Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso
/
Aminet
/
comm
/
fido
/
MM_ScriptSet1.lha
/
MM_CrossPost.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-08-14
|
1KB
|
50 lines
/*
** MM_CrossPost.rexx v1.0 by Tomasz Nidecki
**
** This script when installed in Browse menu, lets you
** crosspost the browsed message in a given number of areas.
**
** Args: rx MM_CrossPost.rexx %a %n
**
** Install in Browse menu using MM_Prefs.
*/
ADDRESS "MAILMANAGER"
PARSE ARG area_tag msg_num
MM_ReadMsg area_tag msg_num read_stem
MM_GetAreas area_stem ECHO
MM_MultiSelReq area_stem sel_stem '"'Choose areas to crosspost'"' STR
text_stem.count = 0
cp_header = "* Crossposted in "area_tag
MM_AddToStem text_stem 'cp_header'
DO i = 0 FOR sel_stem.count
cp_header = "* Crossposted in "sel_stem.i
MM_AddToStem text_stem 'cp_header'
END
DO i = 0 FOR read_stem.text.count
cp_text = read_stem.text.i
MM_AddToStem text_stem 'cp_text'
END
write_stem.from = read_stem.from
write_stem.fromaddr = read_stem.fromaddr
write_stem.to = read_stem.to
write_stem.toaddr = read_stem.toaddr
write_stem.subj = read_stem.subj
write_stem.tear = 'MM_CrossPost'
write_stem.file = 't:mm.trans'
MM_WriteStem 't:mm.trans' text_stem
DO i = 0 FOR sel_stem.count
MM_WriteMsg sel_stem.i write_stem
END
MM_EditMsg area_tag msg_num write_stem